home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / Demos / Herrick 1st < prev    next >
Lisp/Scheme  |  1998-10-26  |  6KB  |  118 lines
  1. ; by Mark Polishook
  2. ; to analyze the score double-click high-lighted keywords
  3.  
  4. (setq wild (symbol-trim 41 (gen-expansion 2 '(-p -l) (vector-to-symbol a m (gen-connel 6 'up))))) 
  5. (setq wild.l (get-timing '1/8 (find-change wild)))
  6. (setq wild.l-loop (gen-loop '((1 2 3) (1 3 2) (1 4 2) (1 5 2) (1 7 2)) wild.l))
  7. (setq wild-f (ornament-higher-chromatic (ornament-lower 1 (ornament-higher 1 
  8.      (filter-delete '(b d -d) wild)))))
  9. (setq wild-f-loop (gen-loop '((1 2 3) (1 3 2) (1 4 2) (1 5 2) (1 7 2)) wild-f))
  10. (setq counterline '(a c e c f e a c e c f))
  11. (setq counterline.b '(a c e c f e g f))
  12. (setq c.line (gen-fibonacci 5 counterline counterline.b))  ;  (length c.line)
  13. (setq poly (symbol-transpose 7 (gen-fibonacci 6 '(a e c e -b (+1 -b)) '(a = = dh = = (-1 b) a))))
  14. (setq cello.l.vel (gen-fibonacci 7 '(72 28 28 28 48 48) '(72 0 0 96 0 0 64 64)))  
  15. (setq c.line.cello (symbol-mask (symbol-transpose 14 c.line) (gen-random 0.73942 128 '(x x = x x x =))))
  16. (setq c.line.b (gen-fibonacci-trans 2 counterline counterline.b))  ;  (length c.line.b)
  17. (setq c.line.c (reverse c.line.b))  ;  (length c.line.c)
  18. (setq c.line.altered (randomize-harmony 0.45 'solo -1 1 c.line))
  19. (setq c.line.mask (symbol-mask c.line (gen-random 0.154 128 '(x x = x x))))
  20. (setq appendages (append c.line.mask c.line.b c.line.c c.line.c))
  21. (setq appendages== (gen-loop '((1 2 2) (3 8 1) (3 10 1) (1 10 2)) (symbol-shift 2 appendages))) 
  22. (setq c.appendages (symbol-repeat 2 (find-change appendages)))
  23. (setq episode (gen-fibonacci 7 '(a e c e) '(a e c e -d))) 
  24. (setq episode.vel (gen-fibonacci 7 '(50 40 40 40) '(40 40 40 40 72)))
  25. (setq spray '(ce = (-24 a) -b d h -b (+1 h) -b d h))
  26. (setq spra '(-b d h -b (+1 h) -b d h))
  27. (setq fib.spray (gen-fibonacci 7 spray spra)) 
  28. (setq spray.l '(1/16 1/16 3/8 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16))  
  29. (setq spra.l '(1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16))
  30. (setq fib.spray.l (gen-fibonacci 7 spray.l spra.l))   
  31. (create-tonality mixo.b9 '(a 1 b& 1 c# 2 d 2 e 2 f# 2 g 2))
  32. (setq fib.lh (gen-fibonacci 7 '(a h a h = -d a h a h a h = -d) '(a h a h = e a h a h a h = -d a h a h)))
  33. (setq fib.lh.vel (gen-fibonacci 7 '(124 48 48 124 0 108 124 48 124 48 48 108 0 96) 
  34.                                 '(124 48 48 124 0 96 124 48 124 48 48 48 0 96 124 48 48 48))) 
  35. ;--------------------------------------------------------------------------------------------------------
  36.  
  37. (def-orchestra 'ensemble
  38.   trio (violin cello piano)
  39.   piano (rh lh))
  40.  
  41. (def-symbol
  42.   violin (list '(=) c.line.mask c.line.b c.line.c c.line.c '(=) wild '(=) wild '(=) wild '(=) wild '(=) 
  43.                wild '(=) wild '(=) wild '(=) wild '(=) c.appendages)
  44.   cello (list '(=) '(hl) '(hl) '(hl) '(hl) poly '(=) c.line.cello '(=) wild-f-loop '(=)) 
  45.   rh (list wild wild wild wild wild wild wild appendages== fib.spray)
  46.   lh (list '(a b) fib.lh '(=) episode) 
  47. )
  48.  
  49. (def-length
  50.   violin (list '(1/8) '(1/8) '(1/8) '(1/8) '(1/8) '(1/8) wild.l '(-1/8) wild.l '(-1/8) 
  51.                   wild.l '(-1/8) wild.l '(-1/8) wild.l '(-1/8) wild.l '(-1/8) wild.l 
  52.                   '(-1/8) wild.l '(-1/8) '(1/16))    
  53.   cello (list '(1/8) '(2/1) '(3/1) '(4/1) '(2/1) '(1/8) '(1/8) '(1/8) '(-1/8) wild.l-loop '(1/8)) 
  54.   rh (list wild.l wild.l wild.l wild.l wild.l wild.l wild.l '(1/8) fib.spray.l)
  55.   lh (list '(1/8 1/8) '(1/8) '(1/8 1/8) '(1/8))
  56. )   
  57.  
  58. (def-zone
  59.   violin '(-15/1 16/1 15/4 15/4 15/4 -7/4 3/1 -6/4 3/1 -5/4 3/1 -4/4 3/1 -3/4 3/1 -3/4 3/1 -3/4 3/1 -3/4 
  60.            19/8 -15/8 432/16) 
  61.   cello '(-15/1 8/1 9/1 4/1 6/1 24/1 1/1 55/8 -15/8 108/4 -1/4)  
  62.   rh '(4/1 4/1 29/4 29/4 29/4 29/4 40/8 128/4 29/1) 
  63.   lh '(-19/1 23/1 -32/1 29/1)
  64. )
  65.  
  66. (def-velocity
  67.   violin '((30) (30) (30) (30) (30) (30) (60) (60) (60) (60) (60) (60) (60) (60) (60) (60) (60) (60) 
  68.            (60) (60) (60) (60) (40))
  69.   cello (list '(48) '(48) '(48) '(48) '(48) cello.l.vel '(48) '(72) '(60) '(72) '(72))
  70.   rh '((64) (64) (64) (64) (64) (64) (64) (36) (24))
  71.   lh (list '(0) fib.lh.vel '(40) episode.vel) 
  72. )
  73.  
  74. (def-tonality
  75.   violin (activate-tonality (mixolydian a 6) (mixolydian a 6) (mixolydian a 6) (mixolydian a 6) 
  76.                             (mixolydian a 6) (mixolydian a 6) (overtone-series 1 12 1 '(a 3)) 
  77.                             (overtone-series 1 12 1 '(a 3)) (overtone-series 1 12 1 '(a 3)) 
  78.                             (overtone-series 1 12 1 '(a 3)) (overtone-series 1 12 1 '(a 3)) 
  79.                             (overtone-series 1 12 1 '(a 3)) (overtone-series 1 12 1 '(a 3)) 
  80.                             (overtone-series 1 12 1 '(a 3)) (overtone-series 1 12 1 '(a 3)) 
  81.                             (overtone-series 1 12 1 '(a 3)) (overtone-series 1 12 1 '(a 3)) 
  82.                             (overtone-series 1 12 1 '(a 3)) (overtone-series 1 12 1 '(a 3))
  83.                             (overtone-series 1 12 1 '(a 3)) (overtone-series 1 12 1 '(a 3))
  84.                             (overtone-series 1 12 1 '(a 3)) (mixolydian a 6))
  85.   cello (activate-tonality (mixolydian a 3) (mixolydian a 3) (mixolydian a 3) (mixolydian a 3) 
  86.                            (mixolydian a 3) (mixolydian a 3) (mixolydian a 3) (mixolydian a 3) 
  87.                            (mixolydian a 3) (overtone-series 1 12 1 '(a 2)) (mixolydian a 3)) 
  88.   rh (activate-tonality (overtone-series 1 12 1 '(a 2)) (overtone-series 1 12 1 '(a 2)) 
  89.                         (overtone-series 1 12 1 '(a 2)) (overtone-series 1 12 1 '(a 2)) 
  90.                         (overtone-series 1 12 1 '(a 2)) (overtone-series 1 12 1 '(a 2)) 
  91.                         (overtone-series 1 12 1 '(a 2)) (mixolydian a 6) (mixo.b9 a 5))
  92.   lh (activate-tonality (overtone-series 1 12 1 '(a 2)) (mixolydian a 3) 
  93.                         (mixolydian a 4) (mixolydian a 4))
  94. ) 
  95.  
  96. (def-tempo 112)
  97.  
  98. (compile-instrument-p "ccl;output:" "Herrick 1st midi"
  99.   trio
  100. )
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.